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1620 MONITOR II-D 
DISK STORAGE SUBROUTINES 



by 

Henry F. Krejci 
ABSTRACT . 

A set of subroutines is described which provides the FORTRAN- 
user with protected permanent disk storage of data on an- IBM 1620 
Monitor II-D System. 

I. INTRODUCTION 

The relatively fast and random access of disk storage is especially 
useful when the FORTRAN user is working with large data sets. The advantage 
of disk storage cannot be fully realized on a 'normal 1620 Monitor II-D Sys- 
tem because the RECORD and FETCH statements provide only temporary disk, 
storage. The system described in this report allows data to be stored on a 
user's own disk pack or on protected areas of a system pack.. 

The system, called the Second-disk System, consists of a, set of four 
subroutines and a, utility program.' It allows a block of data containing any 
number of variables and/or arrays to be transferred directly between assigned 
core. locations and. disk storage. 

II. DESCRIPTION 

A. . Requirements 

The Second-disk System requires the exclusive use of a' second-disk 
drive and is entirely independent of normal Monitor disk operations. The 
Monitor system remains defined as a one-disk system to prevent program stor- 
age, from overflowing onto the second. disk. The Second-disk System is written 
for an IBM 1311 Disk Drive with the "direct seek' 1 special feature. This . 
eliminates the wasted time of the normal return to home and seek from cylin- 
der zero. The only serious restriction imposed by- the Second-disk System is 
that both.fixed^ and floating-point word lengths must be even 0 

B. Disk-pack Structure 

The storage capacity of a.diskpack (2,000,000 digits) is often large 
enough to store several data sets;- Therefore, ■ with proper protection, one 
disk pack can serve 'many' users. To accomplish this, a physical disk pack is 
divided into logical disk packs called files . Each file is identified by a 
unique file number and is divided, into records. The records are the basic 
addressable unit available to the FORTRAN program and are. numbered consec- 
utively from zero. 



The system uses the last 1% of disk storage (cylinder 99) as a table 
to store the record lengths and boundaries of each existing file, A utility 
program is used to initialize and update this table. 

C. Protection 

Before a file can be used, the record length and file boundaries must 
be known. The information is read from the table on cylinder 99 and is sent 
to the appropriate subroutine,, This operation is known, as "opening a file. 11 
Only one file may be open at any time, and data are written on or read from 
the portion of the open file indicated by the record number. Regardless of 
the size of the data block or the record number, data. will not be allowed to 
exceed the boundaries of the open file. 

For additional protection, the utility program may be used to place a 
file in a "read only" state (file protect). Data can be read from a. pro- 
tected file, but cannot be recorded until the utility program is again used 
to place the file in a "read/write" state. 

If a disk pack that is normally used with the Second-disk System is 
mistakenly mounted on the Monitor system disk drive, disk operations will 
result in address checks, but the disk-stored data will not be altered. 

D. File Type 

All files except "file zero" are personal files and are assigned to in- 
dividual users for their exclusive use. Personal files must be predefined, 
using the utility program, by specifying the record length and record capac- 
ity of the file. If sufficient disk space is available, file boundaries 
will be assigned and the file description will be entered in the table on 
cylinder 99. 

"File zero" is a special "common file" available to all users at all 
times. It cannot be file-protected, and its record length cannot be pre- 
defined but must be specified by each program using the Common. File. The 
total capacity of the Common. File is predefined; -therefore, the record ca- 
pacity of the Common File- depends on its record length.. . 

E. The Subroutine Set* . . ■ 

The Second-disk Subroutine Set consists of four subroutines (listed 
below). Each is written to be. compatible with calling programs of any word 
lengths (F and K) . However, both fixed- and floating-point word lengths 
must be even to meet a disk hardware requirement. 

1. Subroutine SDDEF is used to define. the Common File record length,, 
One argument, the record length, is transferred from -the calling program to 
the subroutine SDKEY. 

2. Subroutine SDKEY is used to open a. file. The file, number is re- 
ceived from the calling program, and the description of that file is sent to 



^Appendixes B and C describe the Second-disk Subroutine Set in detail. 



the subroutine SDREC. Only defined files can be openedo Normally the file 
boundaries of the Common File and the entire descriptions of personal files 
are read from the table on cylinder 99o However, the descriptions of the 
Common File and the last personal file opened are retained by SDKEY to reduce 
the time required to reopen these files« Thus, sorting between a per- 
sonal'file and the Common File without reading from cylinder 99 each time a 
file is opened. is possible* 

3o Subroutine SDREC is used to write on an 'open file* Three arguments 
are presented by the calling program, the record number, and the names of 
two variables that define the limits of core storage to be recorded/ The 
entire block of data will be recorded, even if it exceeds the defined rec- 
ord length, and the record number will be advanced to the record following 
the last record written 0 However, writing will not be allowed to overflow 
into the next file, 

4. Subroutine SDFET is used to read from an open file e This routine 
receives the same arguments as SDREC, makes appropriate changes in SDREC, 
and simulates a CALL SDREC. The actual reading is. performed by SDREC. 

F. The Utility Program* 

The Second-disk Utility program is used to initialize a disk pack, to 
define a file, to delete a file definition, to declare a file "read only, 11 
to declare a file "read /write, 11 and to dump the table of file descriptions 0 
Since improper use of the utility program could result in loss of data, the 
utility functions are not available to the FORTRAN program, and the use of 
the utility program should be restricted to operating personnel. The proper 
use of the Second-disk Utility program is discussed in Appendix A. 

• : ; 'lil. OPERATION " 

Ao Data Format 

Data are transferred directly to or from core storage, and the only 
restriction on the block of 'data is that one variable, or array, must be 
floating-point 0 The data fprniat is determined by listing the names of all 
the data elements (variables and arrays) in a COMMON statement o The list 
must be preceded by the name of a dummy integer . This integer is not re- 
corded, but is altered by a disk read or write operation* The final element 
of the list must.be the name of a floating-point variable or array <> The 
names of the dummy integer and the final element are used to define the 
limits of the data block to be" transferred to or from the disk. 

B 0 Word Lengths 

Data transfer to and from a disk must always begin at an even core 
location, and, since this system transfers data directly between the disk and 
assigned core locations, all addresses must be even. To make this possible, 
both fixed- and floating-point word lengths must be even 0 



* Appendixes B and C describe the Second-disk Utility program in detail. 



C. Choice of Record Length 



Each file is divided into equal-length records for addressing purposes 
only. The record length is chosen by the user, but must be a multiple of 
100 digits. Read and write operations always start at the beginning of a 
record and use as many records as are necessary to transfer the block of 
data. Unless the length of the data block is an exact multiple of the rec- 
ord length, a portion of the last record is unused. 

When the data blocks will always be the same size, there is no diffi- 
culty in choosing a record length. However, when the size of the data 
block is expected to vary widely, storage efficiency and the number of rec- 
ords required should be considered. Both the record length and the record 
number are limited by the fixed-point word length. 

D. Record and File Definitions 

If a personal file is to.be used, both the record length and the record 
capacity (file length) of the file must have been predefined using the 
Second-disk Utility program. 

If the Common File is to be. used, the record length must be defined by 
the calling program before the file is opened. The following one-argument 
CALL statement is used to define the Common File record length: 

CALL SDDEF (4) 

where the fixed-point argument is the. record length in hundreds of digits 
(sectors). In the above example, the Common. File records have been defined 
as 400 digits long. The Common. File record length need be defined only once 
during each program (or link program). However, the record length of the 
Common File does not need to be defined when the Common File is not used. 

E. Opening a File 

Opening a file makes it available for a read or write operation. Once 
a file is opened, it remains open until another file is opened or until 
another job or LINK PROGRAM is loaded. The following, one-argument CALL 
statement is used to open a file: 

CALL SDKEY (273) 

where the fixed-point argument is the file number of the file to be opened. 
This argument should be a constant ,. rather than a variable, to minimize the 
possibility of opening a wrong file. 

F. Writing a Block of Data (second-disk RECORD) 

To write data, a file must be open and not declared M read only. 11 The 
following three-argument CALL statement is used to write a block of data: 



CALL SDREC (NREC , NDUM , FE) 



where NREC is the record number (fixed-point), and . NDUM and FE are the dummy 
integer and the final list element described in Section Ill-A above. The 
entire block' of core storage between NDUM and FE, including FE, will be 
written, and the record number will be advanced to the record following the 
last record written. Since the record number is altered, it should always, 
be presented as a variable. 

G. Reading a Block of Data (second-disk FETCH) 

Reading from the disk is similar to writing on the disk except that pro 
tected files may be read. The following three-argument CALL statement is 
used to read a block of data: 

CALL SDFET (NREC , NDUM, FE) 

The same arguments are presented for reading as . for writing, and the format 
of the variables between- NDUM and FE . should be the same as the format used 
to store the data. , 

H. Notes of Caution 

Because of the communication between the. second-disk subroutines,' it is 
recommended that none of them be declared LOCAL subroutines,, 

A group mark within a data block will not affect the storage of the 
data, but will terminate the transmission back to core when the data are 
read. Since a group mark could be left in core by a previous job, it is 
recommended that all variables to be recorded be set to some value. 

If the index of a.. DO LOOP is used as a record number, cycles of the 
loop will be skipped because the index will be advanced during each .disk 
read or write operation. 

I. Error Messages 

The following is a list of error messages and their descriptions. When 
an. error occurs, the appropriate message is typed out and the 1620 halts. 

: 

I " ■ ■ . . ; , 

****DISK ERR*** A hardware error has been detected. 

Pressing START will cause. another at- 
tempt to be made.. 

***FILE NO. XXXX IS UNDEFINED*** An attempt has been made/to open an 

undefined .personal or common file. 
Pressing START will return control to 
the calling program. 

***N0 FILE OPEN*** A read or write operation has been at- 

tempted before a file has been opened. 
Pressing START will return. control to 
the calling program 0 



***FILE NO. XXXX OVERFLOW*** A read or write operation will exceed 

.the upper limit of file XXXX. Pressing 
START will , ret urn control to the call- 
ing program without completing the 
operation. 

***FILE NO. XXXX IS PROTECTED*** A write operation has been attempted 

on a file that is declared read only. 
Pressing START will return control to 
the calling program without performing 
the write operation. 

J. Sample Use of the Second-disk System 

1. Example 1 

The following program will read ten data sets from cards and store 
them on records zero through nine of file 37. Each set consists of a header 
card containing a four-digit set number and a ten-character name, followed 
by 200 cards containing the X-Y coordinates of 200 points. As indicated in 
the FANDK statement, the fixed-point word length. is four digits and the 
floating-point word length is 12 digits (a ten-digit mantissa and a two-digit 
exponent). The length. of a data set is computed as follows: 

Set Number One Fixed-point Word 4 Digit's 

Ten Character Name Two Floating-point Words 24 Digits [' 

X-Y Coordinates 400 Floating-point Words 4800 Digits 

4828 Digits 

Since each set is 4828 digits long,. a minimum record length of 4900 digits 
is required if a set is to be stored as one record. The utility program has 
been used to define file 37 as ten 4900 digit records. 

JOB 
44 F0RX5 
*FANDK1004 " 

DIMENSION X(200),Y(200) 

COMMON NDUM, NSET , HALF1 , HALF2 , X , Y 

CALL SDKEY (37) 

NREC=0 

DO 3 N=l,10 

READ 1, NSET , HALFl , HALF2 

1 FORMAT (I4,6X,2A5) ; 

READ 2,(X(J),Y(J),J=1,200) 

2 FORMAT (2F10.0) 

3 CALL SDREC (NREC,NDUM,Y) 
CALL EXIT 

END 

2. Example 2 

This program will interchange records 1 and 6 of file 37 using core 
storage as a buffer. 



44 JOB 
44 FORX5 
*FANDK1004 

DIMENSION X1(200),Y1(200) ,X2(200) ,Y2(200) 

COMMON NDUM1 , NSET1 , HALF11 , HALF12 , XI ,Y1 
... COMMON NDUM2,NSET2,HALF21,HALF22,X2,Y2 

CALL SDKEY (37) . , 
• . NREC=i , • 

CALL SDFET (NREC , NDUMl , Yl ) ... 
..NREC=6 . 
.CALL SDFET (NREC.NDUM2 ,Y2) ■ 
.NREC=6 . , 

CALL SDREC (NREC , NDUMl , Yl) 

NREC=1 

CALL SDREC (NREC ,NDUM2 ,Y2) 

CALL EXIT 

END 

3. Example 3 

This program will interchange records 1 and 6 of file 37 using the 
common file as a buffer.: 



44 JOB 

44 FORX5 

*FANDK1004, : . 

DIMENSION X(200),Y(200) 

COMMON NDUM,NSET,HALF1,HALF2,X,Y 



CALL SDDEF 
CALL SDKEY 
NREC=1 . 
CALL SDFET 
CALL SDKEY 
NREC=0 
CALL SDREC 
CALL SDKEY 
NREC=6 
CALL SDFET 
NREC=1 . , 
CALL SDREC 
CALL SDKEY 
NREC=0 
CALL SDFET 
CALL SDKEY 
NREC=6 
CALL SDREC 
CALL EXIT 
END 



(49) 
(37) 

(NREC,NDUM,Y) 
(0) 

(NREC,NDUM,Y) 
(37) 

(NREC ,NDUM,Y) 

(NREC , ND UM , Y ) 
(0) 

(NREC ,NDUM,Y) 
(37) 

(NREC,NDUM,Y) 



APPENDIX A 



The Utility Program 

1. The File Description Table ■ ' • . \ 

The function of the Second-disk Utility program is to initialize and 
maintain the file-description table. This table is used by the second-disk 
system to find the boundaries and record length of a file, and to indicate 
file protection. The table occupies the entire last cylinder of a disk pack 
with five entries per sector, or a total of 1000 entries. Each entry de- 
scribes one file, and the file number is implied by the position of the entry 
in the table. The first entry describes file zero (the common file), and 
the last entry describes file 999 (a dummy file used by the system) v All 
other entries are available to describe personal files. 

Each entry consists of four five-digit numbers. The first number is 
the address of the first sector of the file, and the second is the address 
of the sector following the file. The third number is the record length, 
whose magnitude is the number of sectors (100 digits) per record and is zero 
when the file is undefined. The sign of the record length indicates the 
state of the file. If the record length is positive, the file is in a "read/ 
write 11 state. If the record length is negative, . the file is in a "read only" 
state. The fourth number of an entry is the file number of the following 
file in storage. This number is used as a pointer to find blocks of avail- 
able storage space. The pointer is needed because the order in which files 
are stored is not predictable, but depends on the file sizes and the order 
in which the files are defined and. deleted. * 

2. The Utility Functions 

Each of the six utility functions is described below. One control card 
is read for each function to be performed, and a description of the control 
card format precedes each function description. 

a. Initialization of a, Disk Pack 

Cols 1-10 The function name INITIALIZE 

The initialization utility function clears all file descriptions on a 
given disk pack; This function must be performed once before a disk pack is 
used, and should not be done again unless there is no valuable information 
left on the pack. 

b. Defining a File 

Cols . 1-6 The function name DEFINE 
Cols 11-13 The file number (three digits) 
Cols J.4-18 The record length (in sectors) 
Cols 19-23 The file capacity (in records) 

If the indicated file is not defined (the record length is zero) and 
sufficient disk storage space is available, file boundaries are assigned and 
the file description is entered in the file-description table. 



c. Deleting a File Definition !- 

Cols 1-6 The function name DELETE 

Cols 11-13 The file number (three digits) 

If the indicated file is defined (the record length is not zero) , the 
file description is deleted by setting the record length to zeto. 

do Declaring a File M Read Only 11 

Cols' 1-9 The function name READ ONLY 
Cols 11-13 The file number ' (three digits) 

If the indicated file is defined and is in a M read/write fl state (the 
record length is greater than zero), the file is set to : "read only" by ne- 
gating the record length. 

e. Declaring a File "Read/Write" 

Cols 1-10 The function name READ/WRITE 
Cols 11-13 The file number (three digits) 

If the indicated , file is defined and is in a "read only" state (the 
record length is less than zero), the state of the file will be set to 
"read/write" by negating the record length (making it positive). 

f. Dumping the. File-description Table v 
Cols 1-10 The function name DUMP TABLE ' 

This causes the numbers and descriptions of all existing files to be 
typed on the console typewriter. 

3. Defining a Common File 

A Common File is defined in the normal fashion, except that the indi- 
cated record length is never used. The actual record length is specified by 
each program using the Common File and is sent directly to the subroutine 
SDKEY 0 However, the indicated record length is important and should not be 
zero because the product of the indicated record length (cols 14-18) and the 
file capacity (cols 19-23) determines the amount of disk storage space to be 
reserved for the Common File. 

4. Utility Program Messages 

The utility program examines the first ten columns of each control card 
to determine the function to be performed. If it does not find one of the 
six function names described above, the message 

***UNDEFINED FUNCTION NAME*** 

is typed and the 1620 halts. Pressing START will cause the next control 
card to be read. 



If the name DUMP TABLE is found, the description of each existing file 
is typed out and the next control card is read. , If one of the five other 
function names is found, one of the following messages is typed and the 
1620 halts: 

***PRESS START TO INITIALIZE DISK PACK*** 
***PRESS START TO DEFINE. FILE NO. .XXXX*** 
***PRESS START TO DELETE FILE NO. XXXX*** 
***PRESS START TO SET READ ONLY, FILE XXXX*** 
***PRESS START TO CLEAR READ ONLY, FILE XXXX*** 

At this time, the function may be inhibited by setting sense switch 4 and 
pressing START. If sense switch 4 is off, pressing START will allow the 
function to be attempted. When a function is performed, the message 

***0PERATI0N COMPLETED*** 

is typed and the next control card is. read. 

If the function cannot be performed, one of the following messages, 
indicating why the function cannot be completed, is typed: 

***FILE NO. IS TOO LARGE*** 
***FILE NO. IS TOO SMALL*** . 
***FILE IS ASSIGNED, CANNOT DEFINE*** 
***SUFFICIENT SPACE UNAVAILABLE, CANNOT DEFINE*** 
***ZER0 LENGTH FILE, CANNOT DEFINE*** 
***FILE IS UNASSIGNED, CANNOT DELETE***- 
***FILE IS ALREADY SET TO READ ONLY*** 
***FILE IS NOT SET TO READ ONLY*** 
***FILE IS UNDEFINED*** 

When a function is inhibited for one of the above reasons or because sense 
switch 4 was set, the message 

***OPERATION CANCELLED*** 

is typed and the next control card is read. . 
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APPENDIX B 
Program Listings 



******************************************************* 
*** 

*** SUBROUTINE SDDEF -- SECOND DISK DEFINE COMMON FILE 

*** CALL SDDEF (NSRC) WHERE NSRC IS THE COMMON FILE 

*** RECORD LENGTH IN SECTORS (100 DIGITS). 

*** SDDEF SENDS NSRC TO SDKEY 

*** SDDEF FORCES THE LOADING OF SDKEY 

*** SDDEF IS COMPATIBLE WITH ALL F AND K. 

*** 



s 


DS 


,*+101 




00100 


00000 






DC 


6,987898, 5-S 




00095 


00006 






DAC 


6/ SDDEF ,7-S 




00093 


00012 






DVLC 


22-S,5,L,2,99, 


2,99,5,START-6,5,0,30,0 


00078 


0001*9 






DSC 


17,0,0 




00000 


00017 






DORG 


S-100 




00000 










DC 


5,0 


FIRST ENTRY TESt 


OOOOU 


00005 




START 


BD 


NENT, TAG,, 


00006 


5? 


00098 


00183 


***FIRST ENTRY HOUSEKEEPING 












TDM 


TAG, 9,, 


SET TAG 


00018 


15 


00183 


00009 




TF 


SEND+6, SDKEY 




00030 


25 


OOUO 


00181 


FDAD 


BNF 


Dl RAD, SEND+6,, 


FIND THE DIRECT ADDRESS OF 


000U2 


55 


00086 


0011*0 




CF 


SEND+6,,, 


SDKEY ENTRY POINT 


0005U 


?3 


oono 


00000 




TF 


SEND+6,SEND+6, 


11 


00066 


26 


ooiuo 


0011*0 




B7 


FDAD 




00078 


59 


0001*2 


00000 


DIRAD 


SM 


SEND+6, 6,10, 


COMPUTE ADDRESS OF NSRC 


00086 


12 


001i»0 


00006 


*** NORMAL 1 


ENTRY 












NENT 


SF 


START-1 




00098 


32 


00005 


00000 




SM 


START-1, 5, 10 




00110 


12 


00005 


00005 




TF 


BUF, START-1, 11 


, FETCH NSRC FROM FTN 


00122 


26 


00193 


00005 


SEND 


MA 


00000, BUF,, 


SEND NSRC TO SDKEY 


0013U 


70 


00000 


00193 




CF 


START-1 




00U6 


33 


00005 


00000 




AM 


START-1, 2, 10 




00158 


II 


00005 


00052 




B7 


START-1,, 6, 


EXIT SDDEF 


00170 


59 


00005 


00000 


SDKEY 


DC 


5,0,, ADDRESS 


OF SDKEY ENTRY POINT 


00181 


00005 




TAG 


DC 


2>0 




00183 


00002 




BUF 


DC 


10,0 




00193 


00010 




A 


DAC 


6, SDKEY , 




00195 


00012 






DVLC 


,5, SDKEY 


RECORD MARK AT EVEN LOC-. 


00210 


00005 






DC 


2,0?,, < 


00212 


00002 




L 


DS 


,A-1 




0019U 


00000 






DEND 






00000 









********************************************************************** 
*** 

*** SUBROUTINE SDKEY — SECOND DISK KEY, TO OPEN A FILE ON THE 

*** SECOND DISK CALL SDKEY (NFILE) 

*** SDKEY SENDS THE FOLLOWING TO SDREC 

.*** READ ONLY TAG 

*** TOP OF NEXT CYLINDER 

*** NO. SECT./REC. 

*** LAST SECTOR ADDRESS PLUS ONE 

*** FIRST SECTOR ADDRESS 

*** SDKEY FORCES THE LOADING OF SDREC 

*** SDKEY IS COMPATIBLE WITH ALL F AND K. 
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s 


DS 


,**101 




00100 


00000 






DC 


6,987898, 5-S 




00095 


00006 






DAC 


6/ SDKEY ,7-S 




00093 


00012 






DVLC 


22-S,5,L,2,99,2 


!,99,5,START-6,5,0,3b,0 


00075 


0001*9 






DSC 


17,0,0 




00000 


00017 






DORG 


S-100 




00000 








NSRC 


DC 


5,0,, NO. SECT/REC COM. FILE — SDDEF SET 


00001* 


00005 






DC 


5,0 




00009 


00005 




START 


BD 


NENT, TAG1, , FIRST ENTRY TEST 


00010 


1*3 


00318 


01062 


*** FIRST ENTRY HOUSEKEEPING 
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TDM 


TAG1,9,, 


SET TAG 


00022 


01062 


00009 




TF 


ADR1, SDREC 




00031* 


26 


01091 


01086 


FDAD 


BNF 


DIRAD, ADR1,, 


FIND THE DIRECT ADDRESS OF 


000U6 


55 


00090 


01091 




CF 


ADR1, , , 


SDREC ENTRY POINT AND 


00058 


33 


01091 


00000 




TF 


ADR1, ADR1, 11, 


COMPUTE ADDRESSED IN 


00070 


?5 


01091 


01091 




B7 


FDAD,,, 


SDREC 


00082 


1*9 


0001*6 


00000 


DIRAD 


TF 


ADR2, ADR1 




00090 


26 


01096 


01091 




TF 


ADR3, ADR1 




00102 


25 


01101 


01091 




TF 


ADR!*, ADR1 




OOllU 


26 


01106 


01091 




TF 


ADR5, ADR1 




00126 


26 


01111 


01091 




TF 


ADR6, ADR1 




00138 


26 


01116 


01091 




SM 


ADR1,06, 10, 


ADR1-SDREC ENTRY PT.-06 


00150 


12 


01091 


00006 




SM 


ADR2,11,10, 


ADR2=SDREC ENTRY PT.-ll 


00162 


12 


01096 


00011 




SM 


ADR3,16, 10, 


ADR3=SDREC ENTRY PT.-16 


00171* 12 


01101 


00016 




SM 


ADM, 21, 10, 


ADRU=SDREC ENTRY PT.-21 


00186 


12 


01106 


00021 




SM 


ADR5,26,10, 


ADR5=SDREC ENTRY PT.-26 


00198 


12 


01111 


00026 




SM 


ADR6,31,10, 


ADR6=SDREC ENTRY PT.-31 


00210 


12 


01116 


00051 




TFM 


ADRU, U0000, 67, 


SET TPCY IN SDREC 


00222 


16 


01106 


50000 




TFM 


DCF+5, 39800 




00231* 


16 


01259 


59800 




K 


DCF,701,, 


INITIAL SEEK TO CYL 99 


0021*6 


31* 


01251* 


00701 


RDK1 


RN 


DCF,702,, 


READ SECTOR 39800 


00258 


56 


01251* 


00702 




BNI 


FCFD, 3900 




00270 


57 


00291* 


03900 




BTM 


DSKR, RDK1, , 


DISK ERROR 


00282 


17 


01006 


00258 


FCFD 


TF 


FSAC,SECT*l*,, 


FETCH COMMON FILE BOUNDS 


00291* 26 


01121 


01272 




TF 


LSACSECT+9 




00306 


26 


01126 


01277 


*** NORMAL 


ENTRY 






52 






NENT 


SF 


START-1 




00318 


00009 


00000 


SM 


START-1,5,10 




00330 


12 


00009 


00055 




TF 


BUF10, START-1, 


11, FETCH FILE NUMBER 


0031*2 


?6 


01163 


00009 




MA 


FLNO,BUF10 




00351* 


75 


01152 


01163 




TF 


ADR5, FLNO, 6, 


SEND FILE NO. TO SDREC 


00366 


26 


01111 


01152 




CF 


START-1 




00378 


53 


00009 


00000 




AM 


START-1, 2, 10, 


COMPUTE RETURN ADDRESS 


00390 


II 


00009 


0000*2 




CM 


FLNO, 00998,, 


TEST FOR TOO LARGE 


001*02 


1 1* 


01152 


00998 




Bl 


UDFN,1100,, 


A FILE NUMBER 


001*11* 


56 


00931* 


01100 




CM 


FLNO,0 




001*26 


lu 


01152 


Soooo 




Bl 


OPCF,1200,, 


TEST FOR COMMON FILE 


001*38 


56 


00851* 


01200 




C 


FLNO, PVFN 




001*50 


25 


01152 


0111*7 




Bl 


TPFD, 1200, , 


PREV. PERSONAL FILE TEST 


001*62 


56 


00798 


A 1 A A f* 

01200 


*** FETCH FILE DESCRIPTION 


FROM CYLINDER 99 




16 




50000 




TFM 


DCF + 5, 1*0000 




001*71* 


01259 




S 


DCF + 5, ADRt*, 11, 


COMPUTE DELTA CYL. 


00U86 


22 


01259 


01106 




Bl 


DSECT,1200 




001*98 


56 


00531* 


01200 




K 


DCF,702,, 


DIRECT SEEK 


00510 


5i* 


01251* 


00702 
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TFM ADRI*, 1*0000, 6] 

DSECT TF ACCN398,, 

A ACC-l,FLNO 

A ACC-1/FLNO 

TF DCF+5, ACC-2 

RDK2 RN DCF,702,, 

BNI FUFD,3900 

BTM DSKR/ RDK2, , 

FUFD SF ACC-1,,, 

TFM ADRB/SECT+l* 

A ADRB/ ACC 

TF FSAU, ADRB, 11 

AM ADRB, 5/ 10 

TF LSAU, ADRB, 11 

AM ADRB, 5, 10 

TF NSRU,ADRB,11 

CM NSRU,0 

Bl UDFN,1200,, 

TF PVFN, FLNO 

TDM ROTG,0,, 

BNF TPFD, NSRU, , 

CF NSRU,,, 

TDM ROTG,9,, 

*** TRANSMIT PERSONAL Fll 

TPFD TF ADR1,FSAU,6 

TF ADR2,LSAU,6 

TF ADR3,NSRU,6 

TD ADR6, ROTG, 6 

B7 START-1,,6, 

*** OPEN COMMON FILE 

OPCF CM NSRC,0 

Bl UDFN,1200,, 

*** TRANSMIT COMMON FILE 

TF ADR1,FSAC,6 

TF ADR2,LSAC,6 

TF ADR3,NSRC,6 

TDM ADR6.0.6 

B7 START-1,,6, 

*** UNDEFINED FILE NO. 



UDFN 


K 


,102 




WA 


MES1A, 100 




WN 


FLNO-2, 100 




WA 


MES1B, 100 




H 






B7 


START-1,,6, 




DC 


5,0 


DSKR 


K 


,102,, 




WA 


MES2, 100,, 




H 






K 


DCF/701,, 




B7 


DSKR-1,,6 


TAG1 


DC 


2,0 


N398 


DC 


7,3980000 


ACC 


DC 


7,0 



UPDATE TPCY (IN SDREC) 


0052 2 


16 


01106 


UOOOO 


COMPUTE SECTOR ADR 


00531* 


26 


01076 


01069 




0051*6 


21 


01075 


01152 




00558 


2 1 


01075 


01152 




00570 


26 


01259 


0107U 


READ ONE SECTOR 


00582 


36 


01251* 


00702 




00591* 


1*7 


00618 


03900 


DISK ERROR 


00606 


1.7 


01006 


00582 


FETCH USERS Fl LE DESCRI P 


00618 


32 


01075 


00000 


■ 


0063 0 


16 


01081 


01272 




0061*2 


21 


01081 


01076 




00651* 


26 


01131 


01081 




00666 


II 


01081 


00005 




00678 


26 


01136 


01081 




00690 


11 


01081 


00005 


* ■ 


00702 


26 


011U1 


01081 




0071U 


II* 


0111*1 


00000 


UNDEFINED FILE TEST 


00726 


l»6 


00931* 


01200 




00738 


26 


0111*7 


01152 


CLEAR READ ONLY TAG 


00750 


15 


0111*2 


00000 


FILE IS PROTECTED IF 


007 62 


Uk 


00798 


0111*1 


NSRU IS NEGATIVE 


. 0077U 


33 


0111*1 


00000 


SET READ ONLY TAG 


00786 


15 


0111*2 


00009 


nccro 1 DTI HM TO cnDFP 




2 6 


01091 






00798 


01131 




00810 


26 


01096 


01136 




00822 


26 


01 10 1 


0111*1 




00831* 


2 5 


01116 


0111*2 


EXIT SDKEY 


008U6 


i*9 


00009 


00000 




00851* 


11* 


00001* 


00000 


UNDEFINED Fl LE TEST - 


00866 


i*6 


00931* 


01200 


SCRIPTION TO SDREC 






01091 






00878 


26 


01121 




00890 


2 6 


01096 


01126 




00902 


26 


01101 


00001* 




00911* 


11 


01116 


00000 


EXIT SDKEY 


ft ft ft rs c 

00926 


1*9 


A a a a a 

00009 


f\ ft. ft. f\ ft. 

00000 




00931* 


31* 


/\ f\ f\ t\ 
00000 


A ft 1 ft ft 

00102 




009U6 


39 


01165 


UU 1UU 




00958 


38 


0 1 150 


00100 




00970 


39 


01191 


00100 




00982 


U8 


00000 


A A AAA 

oooou 


EXIT SDKEY 


0099U 


U9 


00009 


ft ft ft ft ft 

00000 




01005 


00005 




SUBROUTINE TO TYPE 


. 01006 


31* 


00000 


00102 


OUT ***DISK ERR***, 


01018 


39 


01225 


00100 


HALT, RE-SEEK, AND 


01030 


1*8 


00000 


00000 


TRY AGAIN. 


0101*2 


31* 


01251* 


00701 


01051* 


5.9 


01005 


00000 




01062 


00002 






01069 


00007 






01076 


00007 
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ADRB 


DC 


5,0 


• 


01081 


00005 


SDREC 


DC 


5,0,, 


ADDRESS OF SDREC ENTRY POINT 


01086 


00005 


ADR1 


DC 


5,0,, 


ADDRESS OF FSAD IN SDREC 


01091 


00005 


ADR2 


DC 


5,0,, 


ADDRESS OF LSAD IN SDREC 


01096 


00005 


ADR3 


DC 


5,0,, 


ADDRESS OF NSPR IN SDREC 


01101 


00005 


ADRl* 


DC 


5,0,, 


ADDRESS OF TPCY IN SDREC 


01106 


00005 


ADR5 


DC 


5,0,, 


ADDRESS OF FLNO IN SDREC 


01111 


00005 


ADR6 


DC 


5,0,, 


ADDRESS OF ROTG IN SDREC 


01116 


00005 


FSAC 


DC 


5,0,, 


COMMON FILE FIRST SECT ADR 


01121 


00005 


LSAC 


DC 


5,0,, 


COMMON FILE LAST SECT ADR +1 


01126 


00005 


FSAU 


DC 


5,0,, 


PERSONAL FILE FIRST SECT ADR 


01131 


00005 


LSAU 


DC 


5,0,, 


PERSONAL FILE LAST SECT ADR +1 


01136 


00005 


NSRU 


DC 


5,0,, 


PERSONAL FILE NO. SEC./REC. 


OHM 


00005 


ROTG 


DC 


1/0,, 


PERSONAL FILE READ ONLY TAG 


0111*2 


00001 


PVFN 


DC 


5,0,, 


PREVIOUS NON-ZERO FILE NO. 


0111*7 


00005 


FLNO 


DC 


5,0,, 


FILE NO. 


01152 


00005 




DC 


1,9 




01153 


00001 


BUF10 


DC 


10/0 




01163 


00010 


MES1A 


DAC 


13/***FILE NO. 1 


01165 


00026 


MES1B 


DAC 


17/ IS 


UNDEFINED***? 


01191 


00031* 


MES2 


DAC 


15/***DISK ERR***? 


01225 


00030 


DCF 


DDA 


,3, 00000, 001, SECT 


01251* 


00006 










01260 


00003 










01263 


00005 


SECT 


DSB 


1,100 




01268 


00100 


A 


DAC 


6, SDREC , 


01369 


00012 




DVLC 


,5, SDREC 


01381* 


00005 




DC 


2/OIP,, 


RECORD MARK AT EVEN LOC. 


01386 


00002 


L 


OS 


/A-l 




01368 


00000 




DEND 






00000 





350000 

001 

01268 



********************************************* 
*** 

*** SUBROUTINE SDFET — SECOND DISK FETCH 

*** THIS SUBROUTINE NEGATES THE BASE ADDRESS TRANSMITTED BY THE 
*** CALL AND SIMULATES A CALL SDREC/ THE ACTUAL FETCH OPERATION 
*** IS PERFORMED IN SDREC. 
*** SDFET FORCES THE LOADING OF SDREC 

*** SDFET IS COMPATIBLE WITH ALL F AND K. 

*** 



s 


DS 


,**101 


00100 


00000 






DC 


6, 987898, 5-S 


00095 


00006 






DAC 


6, SDFET ,7-S 


00095 


00012 






DVLC 


22-S,5,L,2,99,2,99,5,START-6,5,0,30,0 


00078 


0001*9 






DSC 


17,0,0 


00000 


00017 






DORG 


S-100 


00000 








DC 


5,0 


00001* 


00005 




START 


SF 


START- 1, , , NEGATE BASE ADDRESS 


00006 


32 00005 


00000 


CALL 


BT 


00000, START-1,, SIMULATE CALL SDREC 


00018 


27 00000 


00005 


A 


DAC 


6, SDREC , 


00031 


00012 






DVLC 


,5,CALL+6 


0001*6 


00005 






DC 


2,0?,, RECORD MARK AT EVEN LOC 


0001*8 


00002 




L 


DS 


/A-l 


00030 


00000 






DEND 




00000 
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********* ************************************************************^ 
*** 

*** SUBROUTINE SDREC — SECOND DISK RECORD 

*** THIS SUBROUTINE PERFORMS BOTH RECORD AND FETCH OPERATIONS 

*** WHEN THE BASE ADDRESS TRANSMITTED BY THE CALL IS POSITIVE (SDREC 

*** IS CALLED BY FORTRAN), DATA IS- WRITTEN ON THE SECOND DISK. 

*** WHEN THE BASE ADDRESS TRANSMITTED BY THE CALL IS NEGATIVE (SDFET 

*** HAS BEEN CALLED BY FORTRAN), DATA IS READ FROM THE SECOND DISK. 

*** THE FOLLOWING THREE ARGUEMENTS ARE PRESENTED — 

*** NREC •— RECORD NUMBER, NON-SUBSCRIPTED INTEGER 

*** LAST -- DUMMY NON-SUBSCRIPTED INTEGER TO • 

*** INDICATE END OF DATA 

*** FIRST -- NAME OF FIRST DATA ELEMENT ' ' ' 

*** SDREC IS COMPATIBLE WITH ALL F AND K. 

*** 



s 


DS 


,*+101 




00100 


00000 






DC 


6,987898, 5-S 




00095 


00006 






DAC 


6, SDREC ,7-S 




00093 


00012 






DVLC 


22-S,5,L,2,99,2 


,99,5,START-6,5,0,30,0 


00078 


000U9 






DSC 


17,0,0 




00000 


00017 






DORG 


S-100 




00000 








ROTG 


DC 


2,0,, READ ONLY 


TAG -- SDKEY SET 


00001 


00002 




FLNO 


DC 


5,0,, FILE NUMBER -- SDKEY SET 


00006 


00005 




TPCY 


DC 


5,0,, TOP OF PREV. CYL. - f SDKEY SET 


00011 


00005 




NSPR 


DC 


5,0,, NO. SECT. 


PER REC. -- SDKEY SET 


00016 


00005 




LSAD 


DC 


5,0,, LAST SECT. ADR. +1 -- SDKEY SET 


00021 


00005 




FSAD 


DC 


5,0,, FIRST SECT. ADR -- SDKEY SET 


00026 


00005 






DC 


5,0,, 




00031 


00005 




START 


BD 


NENT, TAG1, , 


FIRST ENTRY TEST 


00032 

\J \J \J J L. 


1*3 


00181* 


01296 

U A t J U 


*** INHIBIT 


FIRST ENTRY IF 


NO Fl LE IS OPEN 












CM 


NSPR,0 




000l*i* 


lu 


00016 


50000 

KJ \S \S \S \J 




BNI 


HSKP, 1200,, 


FILE OPEN TEST 


000 5 6 
\t \j \j j \j 


1*7 


00121* 


01200 

\J X L. \J V 




K 


,102,, 


TYPE -- 


00068 


3U 


00000 


00102 




WA 


MES1,100,, 


NO FILE OPEN 


00080 


39 


0131*7 


00100 




CF 


START-1 




00092 


33 


00031 


00000 




AM 


START-1,15,10 




00101* 


11 


00031 


00015 




B7 


ERRH 




00116 


59 


01192 


00000 


*** FIRST ENTRY HOUSEKEEPING 




?6 






HSKP 


TF 


KMO, K 




00121* 


01298 


02221 




SM 


KMO,1,10, 


KMO-K-1 


00136 


12 


01298 


OOOSl 




TF 


FPO,F 




0011*8 


?6 


01300 


02219 




AM 


FPO,l, 10, 


FPO=F*l 


00160 


11 


01300 


OOOSl 




TDM 


TAG1,9 




00172 


15 


01296 


00009 


*** NORMAL 


ENTRY 












NENT 


BNF 


SUREC, START-1,, 


RECORD OR FETCH TEST 


0018U 




0021*0 


00031 




CF 


START-1 




00196 


53 


00031 


00000 




TDM 


WDK1*1,6,, 


SET-UP FOR A FETCH 


00208 


15 


00961 


00006 




TDM 


WDK2+1,6,, 


OPERATION 


00220 


15 


00817 


00006 




B7 


F3ADR 




00232 


f! 


00276 


00000 


SUREC 


BD 


FPERR, ROTG, , 


FILE PROTECT TEST 


002U0 




01052 


00001 




TDM 


WDKl+1,8,, 


SET-UP: FOR A RECORD 


00252 


15 


00961 


00008 




TDM 


WDK2*1,8,, 


OPERATION 


00261* 


15 


00817 


00008 


F3ADR 


AM 


START-1, 5, 10, 


FETCH THREE ADDRESSES 


00276 


11 


00031 


00055 




MA 


NREC, START-1, 11 


, NREC 


00288 


70 


01335 


00031 



20 



ASLEN 



ARLEN 



DTNC 



COFX 



WDK2 



OVFL 



AM 


START-1,5,10, 


LAST 


00300 


11 


00031 


00055 


MA 


LAST,START-1,11, FIRST 


00312 


70 


0131*0 


00031 


AM 


START-1,5,10 




00321* 


11 


00031 


00055 


MA 


F 1 RST, START-1/ 


11 


00336 


75 
22 


0131*5 


00031 


S 


LAST,KM0,, 


LAST=LAST-(K-1) 


0031(8 


0131*0 


01298 


S 


FIRST,FP0,, 


FIRST=FIRST-(F*1) 


00360 


55 


0131*5 


01300 


TD 


LAST,GMK,6, 


SET GROUP MARK 


00372 


25 


0131*5 


01295 


TF 


DLEN, LAST,, 


COMPUTE DATA LENGTH 


0038U 


56 


01305 


0131*0 


S 


DLEN, FIRST,, 


IN DIGITS 


00396 


55 


01305 


0131*5 


TFM 


SLEN,0 




001*08 


16 


01310 


50000 


TF 


BUF, DLEN 




001*20 


56 


0161*1* 


01305 


AM 


SLEN,1,10, 


COMPUTE DATA LENGTH 


001*32 


II 


01310 


00051 


SM 


BUF, 100,8, 


IN SECTORS 


001*1*1* 


12 


0161*1* 


05100 


Bl 


ASLEN, 1100 




001*56 


56 


001*32 


01100 


TFM 


RLEN, 0 




001*68 


16 


01315 


50000 


TF 


BUF , SLEN 




001*80 


26 


0161*1* 


01310 


AM 


RLEN, 1, 10, 


COMPUTE DATA LENGTH 


001*92 


II 


01315 


00051 


S 


BUF,NSPR,, 
ARLEN, 1100 


IN RECORDS 


00501* 


22 


0161*1* 


00016 


Bl 




00516 


56 


001*92 


01100 


M 


NSPR,NREC,11, 


DETERMINE FIRST SECTOR 


00528 


5? 


00016 


01335 


MA 


FSECT, 00099 




0051*0 


70 


01320 


00099 


A 


FSECT, FSAD 




00552 


21 


01320 


00026 


A 


NREC, RLEN, 6, 


UPDATE RECORD NUMBER 


00561* 


51 


01335 


01315 


TFM 


TNCY,0 




00576 


16 


01325 


50000 


TF 


TNCY-3,FSECT-3 


, , DETERMINE THE TOP 


00588 


25 


01322 


01317 


AM 


TNCY, 200,9, 


OF THE NEXT SECTOR 


00600 


II 


01325 


00500 


C 


TNCY, FSECT 




00612 


55 


01325 


01320 


BNI 


DTNC, 1100 




00621* 


57 


00600 


01100 


TF 


THCY, TNCY, , 


DETERMINE THE NO OF 


00636 


26 


01330 


01325 


S 


THCY, FSECT, , 


SECTORS LEFT THIS SECTOR 


0061*8 


22 


01330 


01320 


TF 


DCF+5,TNCY, , 


COMPUTE DELTA CYL 


00660 


56 


01531 


01325 


S 


DCF+5,TPCY 




00672 


22 


01531 


00011 


Bl 


COFX, 1200 




00681* 


56 


00720 


01200 


K 


DCF, 702, , 


DIRECT SEEK 


00696 


5i» 


01526 


00702 


TF 


TPCY.TNCY. , 

t 1 w ■ 0 • 1 « \0 WW 


UPDATE TPCY 


00708 


56 


00011 


01325 


C 


^1 FM THPY 

OLLIl/ I nu 1 / / 

OVFL. 1100 


CYL OVFRFLOW TFST 

wl L U V trVr LUn I Lv 1 


00720 


55 


01310 


01330 


Bl 




00732 


56 


00861* 


01100 


TF 


DCF+8, SLEN, * 


SET UP DISK CONTROL FIELD 


0071*1* 


55 


01531* 


01310 


TF 


DCF+5, FSECT 




00756 


56 


01531 


01320 


TF 


DCF+13, FIRST 




00768 


56 


01539 


0131*5 


A 


FSECT, SLEN 




00780 


51 


01320 


01310 


C 


FSECT, LSAD 




00792 


55 


01320 


00021 


Bl 


FOVF,1100,, 


FILE OVERFLOW TEST 


00801* 


56 


01132 


01100 


WN 


DCF, 700,, 


READ/WRITE DISK 


00816 


38 


01526 


00700 


Bl 


**12,3700 




00828 


56 


0081*0 


03700 


BNI 


EXIT,3900 




0081*0 


57 


01201* 


03900 


BTM 


DSKR, WDK2, , 


DISK ERROR 


00852 


17 


012U0 


50816 


TF 


DCF*8,THCY,, 


CYLINDER OVERFLOW CASE 


00861* 


55 


01531* 


01330 


TF 


DCF+5, FSECT, , 


SET UP DISK CONTROL FIELD 


00876 


56 


01531 


01320 


TF 


DCF+13, FIRST 




00888 


56 


01539 


0131*5 


A 


FSECT, THCY,, 


FSECT=FSECT+THCY 


00900 


51 


01320 


01330 


S 


SLEN, THCY, , 


SLEN-SLEN-THCY 


00912 


22 


01310 


01330 


A 


FIRST-2,THCY,, 


FIRST»FIRST*100*THCY 


00921* 


51 


0131*3 


01330 


C 


FSECT, LSAD 




00936 


55 


01320 


00021 



21 





Bl 


FOVF, 1100,, 


FILE OVERFLOW TEST 


0091+8 


56 


: 01132 


01100 


WDK1 


WN 


DCF, 702,, 
ACY, 3900 


READ/WRITE DISK TO CYL END 


00960 


38 


01526 


00702 




BNI 




00972 


57 


00996 


03900 




BTM 


DSKR, WDK1, , 


DISK ERROR 


0098U 


— — 

17 


0121*0 


00960 


ACY 


TFM: 


THCY, 200 




00996 


16 


01330 


00200 




TFM 


DCF+5, 200 




01008 


16 


01531 


00200 




K 


DCF, 702, , 


DIRECT SEEK/ +1 CYL 


01020 


31* 


01526 


00702 




AM 


TPCY, 200, 8, 


UPDATE TPCY 


01032 


11 


00011 


05200 




B7 


COFX 




0101* k 


59 


00720 


00000 


FPERR 


K 


/102,, 


TYPE 


01052 


31* 


00000 


00102 




WA 


MESI»A, 100,, 


FILE NO. XXXX IS PROTECTE 


0106U 


39 


011*67 


00100 




TF 


BUF, F LNO 




01076 


25 


016UU 


00006 




WN 


BUF-2, 100 




01088 


?8 


0161*2 


00100 




WA 


MESl*B, 100 




01100 


39 


011*93 


00100 




AM 


START-1,15,10 




01112 


11 


0003l : 


00015 




B7 


ERRH 


. ■ ■ 


01121* 


59 


01 19 2 


00000 


FOVF 


K 


/102,, --\ 


TYPE 


01132 


31* 


00000 


00102 




WA 


MES2A,100,, 


FILE NO. XXXX OVERFLOW 


0111*1* 


39 


01385 


00100 




TF 


BUF, FLNO 




01156 


26 


0161*1* 


00006 




WN 


BUF-2,100 




01168 


38 


01652 


00100 




WA 


MES2B, 100 




01180 


39 


011*11 


00100 


ERRH 


H 






01192 


1*8 


00000 


00000 


EXIT 


TDM 


LAST, 0,6, 


CLEAR GROUP MARK 


0120U 


15 


0131*0" 


00000 




AM 


START-1,2,10 




01216 


11 


00031 


00002 




B7 


START-1,,6, 


EXIT SDREC 


01228 


59 


00031 


00000 




DC 


5,0 




01239 


00005 




DSKR 


K 


,102,, 


SUBROUTI NE TO TYPE 


0121*0 


3U 


00000 


00102 




WA 


MES3,100,, 


OUT ***DISK ERR***, 


012 52 


39 


011*37 


00100 




H 


/ / / 


halt, Re-seek, and 


01261* 


1*8 


00000 


00000 




K 


DCF, 701,, 


TRY AGAIN. 


01276 


31* 01526 


00701 




B7 


DSKR-1,,6 




01288 


59 


01239 


00000 


GMK 


DGM 






0129 5 


00001 




TAG1 


DC 


1/0,, 


FIRST ENTRY. TAG ■ 


01296 


00001 




KMO 


DC 


2,0,, 


K-l 


01298 


00002 




FPO 


DC 


2,0,, 


FPO=F+l 


01300 


00002 




DLEN 


DC 


5,0,, 


DATA LENGTH IN DIGITS 


01305 


00005 




SLEN 


DC 


5,0,,. 


DATA LENGTH IN SECTORS 


01310 


00005 




RLEN 


DC 


5,0,, 


DATA LENGTH IN RECORDS 


01315 


00005 




FSECT 


DC 


5,0,, 


FIRST SECTOR ADDRESS 


01320 


00005 




TNCY 


DC 


5,0,, 


TOP OF NEXT CYLINDER 


01325 


00005 




THCY 


DC 


5,0,/ 


SECTORS LEFT THIS CYLINDER 


01330 


00005 




NREC 


DC 


5,0,, 


ADDRESS OF RECORD NUMBER 


01335 


00005 




LAST 


DC 


5,0,, 


ADDRESS OF LAST DATA 


0131*0 


00005 




F 1 RST 


DC 


5,0,, 


ADDRESS OF F 1 RST DATA 


013U5 


00005 




MES1 


DAC 


19,***NO Fl LE 


OPEN***? 


0131*7 


00038 




MES2A 


DAC 


13,***FlLE NO. 


@ 


01385 


00026 . 




MES2B 


DAC 


13, OVERFLOW***? 


011*11 


0002 6 




MES3 


DAC 


15,***DISK ERR***? 


011*37 


00030 - ; 




ME S i* A 


DAC 


13,***FILE NO. 




011*67 


0002 6 . 




MESUB 


DAC 


17, IS PROTECTED***? 


011*93 


00031* 




DCF 


DDA 


,3,00000,000,00000 


01526 


00006 3(50000 










01532 


00003 000 










01535 


00005 00000 


SEGB 


DSB 


1,100 




0151*0 


00100 





22 



BUF 


DC 


5,0 




016i»l* 


00005 




DC 


1,(1 




016U5 


00001 


L 


DC 


1,1,, ' 


RECORD MARK AT EVEN LOC. 


016U6 


00001 


F 


DS 


,2219 




02219 


00000 


K 


DS 


,2221 




02221 


00000 




DEND 






00000 





*************************************************** 
*** 

*** SECOND DISK UTILITY PROGRAM 



*** FUNCTION SELECTION 



DORG 


10000 




10000 








START K 


, 102 




10000 


31* 


00000 


00102 


RA 


CARD, 500,, 


READ CONTROL CARD 


10012 


37 


11*533 


00500 


BNR 


NCON, CARD,, 


TEST FOR REC. MK. IN COL 2 


10021* 


1*5 


10092 


11*533 


WA 


MES8, 100, , 


TYPE 


10036 


39 


1311*5 


00100 


K 


, 102,, 


TRP ERR 


100U8 


31* 


00000 


00102 


WA 


MES9,100,, 


MUST RELOAD 


10060 


39 


13161 


00100 


H 






10072 


1*8 


00000 


00000 


B7 


00796 




10081* 


1*9 


00796 


00000 


NCON TFM 


Fl LE-2, 0,911 




10092 


16 


11*308 


00000 


TNS 


CARD + 21*, F 1 LE 




10101* 


72 


11*557 


11*310 


CF 


F 1 LE-2 




10116 


33 


11*308 


00000 


C 


FN1,CARD*18 




10128 


21* 


12737 


11*551 


Bl 


INTL, 1200,, 


TEST FOR INITIALIZE 


1011*0 


1*6 


10392 


01200 


C 


FN2,CARD+10 




10152 


21* 


1271*9 


11*51*3 


Bl 


DEFN, 1200/, 


TEST FOR DEFINE 


10161* 


1*6 


10580 


01200 


C 


FN3/CARD+10 




10176 


21* 


12761 


11*51*3 


Bl 


DELT/1200,, 


TEST FOR DELETE 


10188 


1*6 


1121*1* 


01200 


C 


FN1*,CARD+16 




10200 


21* 


12779 


11*51*9 


Bl 


RDOY, 1200,, 


TEST FOR READ ONLY 


10212 


1*6 


1151*1* 


01200 


C 


FN5,CARD+18 




10221* 


2U 


12799 


11*551 


Bl 


RDWR,1200,, 


TEST FOR READY/WRITE 


10236 


1*6 


11716 


01200 


C 


FN6/CARD+18 




102U8 


21* 


12819 


11*551 


Bl 


DUMP / 1200 / , 


TEST FOR DUMP TABLE 


10260 


1*6 


11932 


01200 


WA 


MES1/100,, 


TYPE -- 


10272 


39 


1282 1 


00100 


K 


,102,, 


UNDEFINED FUNCTION NAME 


10281* 


31* 


00000 


00102 


H 






10296 


1*8 


00000 


00000 


B7 


START 




10308 


1*9 


10000 


00000 


*** FUNCTION TERMINATION 












DONE K 


,102,, 


TYPE -- 


10316 


3U 


00000 


00102 


WA 


MES2/100// 


OPERATION COMPLETED 


10328 


39 


12881 


00100 


B7 


CNCL + 21* 




1031*0 


1*9 


10372 


00000 


CNCL K 


/102// 


TYPE -'- 


1031*8 


31* 


00000 


00102 


WA 


MES3/100// 


OPERATION CANCELLED 


10360 


39 


12933 


00100 


K 


,102 




10372 


31* 


00000 


00102 


B7 


START 




10381* 


1*9 


10000 


00000 


*** INITIALIZE 












INTL WA 


MES11/-100// 


TYPE -- 


10392 


39 


13185 


00100 


H 




PRESS START TO INITIALIZE 


10U0I* 


1*8 


00000 


00000 


Bl 


CNCL/ltOO/, 


CANCEL IF SWITCH FOUR 


101*16 


1*6 


103U8 


001*00 


TRNM 


SECT, IENT-I* 




101*28 


30 


11*1*16 


11*333 



23 





TRNM 


SECT+20, 1 ENT- 


•l* 




101*1*0 


30 


11*1*56 


11*333 


• 


TRNM 


SECT+i*0, 1 ENT- 


k 


,,SET FIVE CLEARED TABLE 


10U52 


30 


11*1*56 


11*533 




TRNM 


SECT+60, 1 ENT- 


•I* 


//ENTRIES IN SECTOR BUFFER 


101*61* 


30 


11*1*76 


1«*355 




TRNM 


SECT+80 / 1 ENT- 


•I* 




10U76 


30 


11*1*96 


11*555 




TFM 


DCF+5, 39800 






101*88 


16 


11*1*07 


59800 


1 NSK 


K 


DCF,701 






10500 


31* 


11*1*02 


00701 


INDW 


WN 


DCF,702,, 




WRITE 200 SECTORS 


10512 


38 


11*1*02 


00702 




Bl 


INSK,5900 






10521* 


1*6 


10500 


05900 




CM 


DCF+5, 59999 






10536 


It* 


11*1*07 


59999 




Bl 


DONE, 1200 






1051*8 


1*6 


10316 


01200 




AM 


DCF+5, 1, 10 






10560 


ii 


11*1*07 


00001 




B7 


INDW 






105 72 


1*9 


10512 


00000 


*** DEFINE 
















DEFN 


WA 


MES21,100,, 




TYPE -- 


10580 


39 


13269 


00100 




WN 


Fl LE-2,100,, 




PRESS START TO DEFINE FIL 


10592 


38 


11*308 


00100 




WA 


MES99, 100 






10601* 


39 


11*297 


00100 




H 








10616 


1*8 


00000 


00000 




Bl 


CNCL, 400,, 




CANCEL IF SWITCH FOUR 


10628 


1*6 


1031*8 


001*00 




BTM 


TPFN,000,9, 




TRAP OUT OF RANGE Fl LE NO. 


106U0 


17 


12351* 


00000 




BTM 


TBLE/ 00/ 10/ 




READ FILE DESCRIPTION 


10652 


17 


121*70 


00000 




CM 


RECL/0 






10661* 


11* 


11*326 


00000 




BNI 


DFAA/1200// 




ALREADY ASSIGNED TEST 


10676 


1*7 


1102U 


01200 




TNS 


CARD+54, NSPR/ 


/ 


CONVERT RECORD LENGTH 


10688 


72 


11*567 


11*565 




TNS 


CARD+I*I*,NRPF, 


/ 


CONVERT Fl LE CAPACITY 


10700 


72 


11*577 


11*568 




M 


NSPR/NRPF// 




COMPUTE FILE LENGTH 


10712 


23 


11*363 


11*568 




MA 


NSPF/00099,/ 




IN SECTORS 


10721* 


70 


11*373 


00099 




CM 


NSPF/ 0 






10736 


11* 


11*373 


00000 




BNI 


DENZ/ 1200,/ 




TEST FOR ZERO LENGTH FILE 


107U8 


1*7 


10792 


01200 




K 


,102// 




TYPE -- 


10760 


31* 


00000 


00102 




WA 


MES2l»,100,, 




ZERO LENGTH FILE/ CANNOT 


10772 


39 


13515 


00100 




B7 


CNCL 






10781* 


1*9 


1031*8 


00000 


DENZ' 


TF 


BUF 1, FILE 






10 792 


26 


11*378 


11*510 




TFM 


Fl LE,999 






108 01* 


16 


11*310 


00999 




BTM 


TBLE,00>10, 




READ FILE 999 FOR POINTER 


10816 


17 


121*70 


00000 


DEML 


TF 


BUF2,LSEC,, 




DEFINE, MAIN LOOP -- 


10828 


26 


11*383 


11*521 




TF 


BUF5,FI LE, , 




SCAN FOR BLOCK OF 


1081*0 


2 6 


11*388 


11*510 




TF 


Fl LE/NEXT/ / 




AVAILABLE DISK STORAGE 


108 52 


2 6 


11*310 


11*551 




CM 


NEXT/ 1000 






10861* 


11* 


11*331 


51000 




Bl 


DELF/ 1200,, 




TEST FOR LAST DEFINED FILE 


10876 


1*6 


1091*1* 


01200 




BTM 


TBLE,00,10, 




READ NEXT FILE DESCRIPTION 


10888 


17 


121*70 


00000 




S 


FSEC, BUF2 






10900 


22 


11*316 


11*585 




C 


FSECNSPF 






10912 


21* 


11*316 


11*575 




Bl 


DESF,1300,, 




TEST FOR SPACE BETWN FILES 


1092U 


1*6 


11056 


01500 




B7 


DEML 






10936 


1*9 


10828 


00000 


DELF 


TFM 


BUFl*, 39800 






1091*1* 


16 


11*393 


59800 




S 


BUFU,BUF2 






10956 


22 


11*393 


11*585 




C 


BUF1»,NSPF, , 




TEST FOR SPACE AFTER THE 


10968 


21* 


11*393 


11*575 




Bl 


DESF,1300;, 




LAST DEFINED Fl LE 


10980 


1*6 


11056 


01500 




K 


/102/i 




TYPE — 


10992 


31* 


00000 


00102 




WA 


MES23/100/, 




SUFFICIENT SPACE UNAVAIL. 


11001* 


39 


131*15 


00100 




B7 


CNCL 






11016 


1*9 


1031*8 


00000 


DFAA 


K 


,102,, 




TYPE -- 


1102U 


31* 


00000 


00102 




WA 


MES22/100// 




FILE IS ASSIGNED; CANNOT 


11036 


39 


13339 


00100 




B7 


CNCL 






110U8 


1*9 ' 


1031*8 


00000 



24 



DESF 


TF 


NEXT/ FILE// 


SPACE FOUND -- 


11056 


26 


14331 


14310 




TF 


Fl LE/BUF1 




11068 


26 


14310 


14378 




TF 


FSEC/BUF2 




11080 


26 


14316 


14383 




TF 


LSEC/BUF2 




11092 


26 


14321 


14383 




A 


LSEC/NSPF 




mot* 


21 


14321 


14373 




TF 


RECL/NSPR 




11116 


26 


14326 


14363 




BTM 


TBLE/09/ 10/ 


RECORD NEW FILE DEFINITION 


11128 


17 


12470 


00009 




K 


/102 




1111*0 


34 


00000 


00102 




WN 


Fl LE-2/ 100 




11152 


38 


14308 


00100 




K 


z 101 




11164 


34 


00000 


00101 




WN 


FSEC-U/100// 


TYPE NEW FILE DESCRIPTION 


11176 


38 


14312 


00100 




TF 


Fl LE/BUF3 




11188 


26 


14310 


14388 




BTM 


TBLE/00/ 10/ 


AND 


11200 


17 


12470 


00000 




TF 


NEXT/ BUF 1 




11212 


26 


14331 


14378 




BTM 


TBLE/09/10/ 


UPDATE TABLE. 


11224 


17 


12470 


00009 




B7 


DONE 




11236 


49 


10316 


00000 


*** 


DELETE 














DELT 


WA 


MES31/100// 


TYPE -- 


11244 


39 


13591 


00100 




WN 


Fl LE-2/100// 


PRESS START TO DELETE FIL 


11256 


38 


14308 


00100 




WA 


MES99/100 




11268 


39 


14297 


00100 




H 






11280 


48 


00000 


00000 




Bl 


CNCL/1»00// 


CANCEL IF SWITCH FOUR 


11292 


46 


10348 


00400 




BTM 


TPFN/000/9/ 


TRAP OUT OF RANGE FILE NO. 


11304 


17 


12354 


00000 




BTM 


TBLE/00/10/ 


READ FILE DESCRI PTION 


11316 


17 


12470 


00000 




CM 


RECL/0 




11328 


14 


14326 


50000 




Bl 


DEUF/ 1200// 


UNDEFINED FILE TEST 


11340 


46 


11512 


01200 




TF 


BUF1/FI LE 




11352 


26 


14378 


14310 




TF 


BUF2/ NEXT 




11364 


26 


14383 


14331 




TFM 


NEXT/0 




11376 


16 


14331 


00000 




TFM 


RECL/0 




11388 


16 


14326 


00000 




BTM 


TBLE/09/ 10/ 


WRITE Fl LE DESCRI PTION 


11400 


17 


12470 


00059 




TFM 


Fl LE/999 




11412 


16 


14310 


00999 


DELP 


BTM 


TBLE/00, 10/ 


READ FILE DESCRI PTION 


11424 


17 


12470 


00000 




C 


BUF 1/ NEXT/ / 


TO FIND PRECEDING FILE 


11436 


24 


14378 


14331 




Bl 


DEUP, 1200 




11448 


46 


11480 


01200 




TF 


Fl LE/NEXT 




11460 


26 


14310 


14331 




B7 


DELP 




11472 


49 


11424 


00000 


DEUP 


TF 


NEXT/ BUF2/ / 


UPDATE POINTER 


11480 


26 


14331 


14383 




BTM 


TBLE/09/ 10/ 


WRITE Fl LE DESCRI PTION 


11492 


17 


12470 


00009 




B7 


DONE 




11504 


49 


10316 


00000 


DEUF 


K 


/102// 


TYPE -- 


11512 


34 


00000 


00102 




WA 


MES32/100// 


Fl LE IS UNASSIGNED/ 


11524 


39 


13661 


00100 




B7 


CNCL/// 


CANNOT DELETE 


11536 


49 


10348 


00000 


*** ; 


SET READ ONLY (Fl LE 


PROTECT) 










RDOY 


WA 


MESU1/100// 


TYPE -- 


11544 


39 


13741 


00100 




WN 


Fl LE-2/100// 


PRESS STRT TO SET READ ON 


11556 


38 


14308 


00100 




WA 


MES99/100 




11568 


39 


14297 


00100 




H 






11580 


48 


00000 


00000 




Bl 


CNCL/UOO// 


CANCEL IF SWITCH FOUR 


11592 


46 


10348 


00400 




BTM 


TPFN/001/9/ 


TRAP OUT OF RANGE FILE NO. 


11604 


17 


12354 


00001 




BTM 


TBLE/00/ 10/ 


READ FILE DESCRIPTION 


11616 


17 


12470 


00000 




CM 


RECL/0 




11628 


14 


14326 


50000 




Bl 


UNDF/ 1200// 


UNDEFINED FILE TEST 


11640 


46 


11900 


01200 




BNI 


RDFP/1100// 


ALREADY PROTECTED TEST 


11652 


47 


11684 


01100 



25 



SF RECL, / / 
B7 REWR 
RDF P K ,102,, 

WA MESl*2,100,, 
B7 CNCL 

*** SET READ/WRITE (RELEASE FILE PROTECT) 



SET FILE PROTECT 

TYPE — 
FILE IS ALREADY SET TO RE 



RDWR WA MES51,100,, 

WN FILE-2,100,, 

WA MES99,100 
H 

Bl CNCL, 1*00,, 

BTM TPFN, 001,9, 

BTM TBLE, 00,10, 

CM RECL,0 

Bl UNDF, 1200/ / 

Bl RDAR,1100,, 

CF RECL/ / / 

BTM TBLE, 09, 10, 

B7 DONE 

K ,102,, 

WA MES52,100,, 

B7 CNCL 

K ,102,, 

WA MES6,100,, 

B7 CNCL 



REWR 
RDAR 

UNDF 
DUMP 



TYPE -- 
PRESS START TO SET READ/W 



CANCEL IF SWITCH FOUR 
TRAP OUT OF RANGE FILE NO. 
READ FILE DESCRIPTION 

UNDEFINED FILE TEST 
ALREADY READ/WRITE TEST 
CLEAR FILE PROTECT 
RE WRITE FILE DESCRIPTION 

TYPE -- 
FILE IS NOT SET TO READ 0 

TYPE -- 
FILE IS UNDEFINED 



DUMP FILE DESCRIPTION TABLE 



K ,102,, 

WA MES61,100,, 

K ,102 

K ,102,, 

WA MES62 / 100, / 

K ,102 

WA MES63,100 

K ,102 

K ,102 

TFM FILE,999 

BTM TBLE, 00,10, 

DULP CM NEXT, 1000 

Bl DONE, 1200,, 

TF FILE, NEXT 

BTM TBLE, 00, 10, 

WN FILE-2,100,, 

WA MES67,100 

MA BUFN, FSEC 

WN BUFN-l*,100,, 

WA MES67,100 

MA BUFN, LS EC 

SM BUFN, 1,10 

WN BUFN-U, 100, , 

WA MES67,100 

. CM FILE,0 

BNI DUPF,1200,, 

WA MES6U,100 

B7 DUPC 



TYPE HEADING -- 
***FILE DESCRI PTION TABLE 



FILE 
NO. 



FIRST 
SECTOR 



LAST 
SECTOR 



REC 
LEN 



FETCH FIRST POINTER 

LAST Fl LE TEST 

READ A FILE DESCRIPTION 
TYPE FILE NO. 

TYPE FIRST SECTOR ADDRESS 

TYPE LAST SECTOR ADDRESS 
PERSONAL FILE TEST 



11661* 


32 


11*326 


00000 


11676 


1*9 


1181*8 


00000 


1168U 


31* 


00000 


00102 


11696 


39 


13827 


00100 


11708 


1*9 


1031*8 


00000 


11716 


39 


13905 


00100 


11728 


38 


11*308 


00100 


117U0 


39 


11*297 


00100 


11752 


1*8 


00000 


00000 


11761* 


1*6 


1031*8 


001*00 


11776 


17 


12351* 


00001 


11788 


17 


121*70 


00000 


11800 


1U 


11*326 


50000 


11812 


1*6 


11900 


01200 


1182U 


1*6 


11868 


01100 


11836 


33 


11*326 


00000 


118U8 


17 


121*70 


00009 


11860 


1*9 


10316 


00000 


1 1 oco 

X 1 o 0 o 




nnnnn 


001 0? 

\J \J X \J £. 


11880 


39 


13995 


00100 


11892 


1*9- 


103U8 


00000 


11900 


31* 


00000 


00102 


11912 


39 


13097 


00100 


1192U 


1*9 


1031*8 


00000 


11932 


31* 


00000 


00102 


119UU 


39 


11*065 


00100 


11956 


31* 


00000 


00102 


11968 


31* 


00000 


00102 


11980 


39 


11*133 


00100 


1199 2 


31* 


00000 


00102 


1200U 


39 


11*191 


00100 


12016 


31* 


00000 


00102 


12 028 


31* 


00000 


00102 


12 01*0 


16 


11*310 


00999 


12052 


17 


121*70 


00000 


T206I* 


11* 


11*331 


51000 


12076 


1*6 


10316 


01200 


1208 8 


26 


11*310 


11*331 


12100 


17 


121*70 


00050 


12112 


38 


11*308 


00100 


12121* 


39 


11*289 


00100 


12136 


70 


11*399 


11*316 


121U8 


38 


11*395 


00100 


12160 


39 


11*289 


00100 


12172 


70 


11*399 


11*321 


1218U 


12 


11*399 


00051 


12196 


38 


11*395 


00100 


12208 


39 


11*289 


00100 


12220 


11* 


11*310 


50000 


12232 


1*7 


12261* 


01200 


122t» I* 


39 


11*21*9 


00100 


12256 


1*9 


12288 


00000 



26 



DUPF 


MA 


BUFN, RECL 




1226U 


70 


11*399 


11*326 




WN 


BUFN-1*, 100,, 


TYPE RECORD LENGTH 


12276 


38 


11*395 


00100 


DUPC. 


BNF 


DURW,RECL,, 


FILE PROTECT TEST 


12288 


l*l» 


12320 


11*326 




WA 


MES66,100,, 


TYPE RO. 


12300 


39 


11*275 


00100 




B7 


DUCR 




12312 


1*9 


12332 


00000 


DURW 


WA 


MES65,100,, 


TYPE -- R/W 


12320 


39 


11*261 


00100 


DUCR 


K 


,102 




12332 


31* 


00000 


00102 




B7 


DULP 




123UU 


1*9 


12061* 


00000 


*** SUBROUTINE TO TRAP OUT 


OF RANGE FILE NUMBERS 










*** 


MIN IS 


TRANSMITTED BY 


CALL 










*** 


MAX IS 


998 














DC 


3/0,, 


MINIMUM FILE NUMBER 


12353 


00003 


00999 


TPFN 


CM 


Fl LE,999,9 




1235U 


11* 


11*310 




Bl 


TPLG, 1300 




12366 


1*6 


121*01* 


01300 




C 


Fl LE,TPFN-1 




12378 


21* 


11*310 


12353 




BNI 


TPSM, 1300 




12390 


1*7 


121*36 


01300 




BB 


/ / / 


FILE NO IS OKAY 


12U02 


1*2 


00000 


00000 




DORG 


*-9 




12U0U 








TPLG 


K 


,102,, 
MESI*,100,, 


TYPE -- 


121*01* 


3«* 


00000 


00102 




WA 


FILE NO IS TOO LARGE 


12U16 


39 


12985 


00100 




B7 


CNCL 




121*28 


U9 


1031*8 


00000 


TPSM 


K 


,102,, 


TYPE — 


121*36 


31* 


00000 


00102 




WA 


MES5,100,, 


FILE NO IS TOO SMALL 


12UU8 


39 


1301*1 


00100 




B7 


CNCL 




121*60 


1*9 


103U8 


00000 


*** SUBROUTINE TO READ OR 1 


WRITE A Fl LE DESCRI PTION 


TABLE ENTRY 






*** 


READ IF INDICATOR IS 


ZERO 










*** 


WRITE 


IF INDICATOR IS 


NON-ZERO 












DC 


2,0,, 


READ/WRITE INDICATOR 


121*68 


00002 




TBLE 


TF 


ACCN398 




121*70 


26 


11*530 


11*523 




A 


ACC-1, F 1 LE, , 


DETERMINE SECTOR ADDRESS 


121*82 


21 


11*529 


11*310 




A 


ACC-1, F 1 LE, , 


FROM FILE NUMBER 


121*91* 


21 


11*529 


1U310 




TF 


DCF+5,ACC-2 




12506 


26 


11*1*07 


11*528 




B7 


TBDR 




12518 


1*9 


12538 


00000 


TBSK 


K 


DCF,701 




12526 


31* 


ll»l*02 


00701 


TBDR 


RN 


DCF,702,, 


READ SECTOR 


12538 


36 


ll*i*02 


00702 




Bl 


TBSK,3900 




12550 


1*6 


12526 


03900 




SF 


ACC-1 




12562 


32 


11*529 


00000 




TFM 


ADR1, SECT 




1257U 


16 


11*358 


11*1*16 




A 


ADR1,ACC 




12586 


21 


11*358 


11*530 




BD 


TBWR, TBLE-1, , 


READ/WRITE TEST 


.12598 


1*3 


12660 


121*69 




TF 


TBMK+6,ADR1 




12610 


26 


1261*0 


11*358 




AM 


TBMK+6,20, 10 


-. - 


12622 


11 


1261*0 


00020 


TBMK 


TD 


00000, RMK 




12631* 


25 


00000 


11*311 




TRNM 


F.SEC-1»,ADR1,11 


, READ ENTRY 


1261*6 


30 


11*312 


11*358" 




BB 






12658 


1*2 


00000 


00000 




DORG 


*-9 




12660 








TBWR 


TRNM 


ADR1,FSEC-U,6, 


WRITE ENTRY 


12660 


30 


11*358 


11*312 




B7 


TBDW 




12672 


1*9 


12692 


00000 


TBER 


K 


DCF,701 




12680 


31* 


11*1*02 


00701 


TBDW 


WN 


DCF,702,, 


RECORD UPDATED SECTOR 


12692 


38 


ll»i*02 


00702 




Bl 


TBER, 3900 




12701* 


1*6 


12680 


03900 




BB ■ 




12716 


1*7 


00000 


00000 




DORG 


*-9 




12718 








FN 1 


DSAC 


10, INITIALIZE 




12737 


00020 





FN2 

FN3 

FNI» 

FN5 

FN6 

MES1 

MES2 

MES3 

MESU 

MES5 

MES6 

MES8 

MES9 

MESH 

MES21 
MES22 



MES52 

MES61 

MES62 

MES63 

MES6I* 

MES65 

MES66 

MES67 

MES99 

Fl LE 

RMK 

FSEC 

LSEC 

RECL 

NEXT 

IENT 



ADR1 
NSPR 



DSAC 

DSAC 

DSAC 

DSAC 

DSAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 
DAC 



6, DEFINE 127U9 

6, DELETE 12761 

9/ READ ONLY 12779 

10/ READ/WR I TE 12799 

10/DUMP TABLE 12819 

30/***UNDEFINED FUNCTION NAME***!/ 12821 

26/***OPERATION COMPLETED***!/ 12881 

26/***OPERATlON CANCELLED***!/ 12933 
28/***FILE NO. IS TOO LARGE***!/ • 12985 

28/***FILE NO. IS TOO SMALL***!/ 1301*1 

2l*/***FILE IS UNDEFINED***!/ 13097 

08/TRP ERR!/ 1 3 1 1* 5 

12/MUST RELOAD!/ 13161 
U2/***PRESS START TO INITIALIZE DISK PACK***!/ = 



35/***PRESS START TO DEFINE FILE NO. !/ 
38/***FILE IS ASSIGNED/ CANNOT DEFINE***!/ 



13185 
13269 



00012 
00012 
00018 
00020 
00020 
00060 
00052 
00052 
-00056. 
00056 
0001*8 
00016 
00021* 

00081* 
Q0070 



MES23 DAC 50/ ***SUFF I C I ENT SPACE UNAVAILABLE/ CANNOT 

MES21* DAC 38/***ZERO LENGTH FILE/ CANNOT DEFINE***!/ 

MES31 DAC 35/***PRESS START TO DELETE FILE NO. !/ 

MES32 DAC I*0/***FILE IS UNASS I GNED/ CANNOT DELETE***! 



MESI*1 DAC l*3/***PRESS START TO SET READ ONLY/ FILE NO. !, 
MESU2 DAC 39/***FILE IS ALREADY SET TO READ ONLY***!/ 
MES51 DAC l»5/***PRESS START TO CLEAR READ ONLY/ FILE 



13339 00076 
DEFINE***!/ 
13U15 00100 

13515 00076 
13591 00070 

13661 00080 



1371*1 00086 



DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 
DC 
DC 
DC 
DC 
DC 



35/***FILE IS NOT SET TO READ ONLY***!/ 
3«*/***FILE DESCRIPTION TABLE DUMP***!/ 
29/FILE FIRST LAST RECORD!/ 
29/NO. SECTOR SECTOR LENGTH!/ 



06/ !/ 

07/ R/W!/ 
07/ RO.!/ 
Ok, !/ 
05/ ***! 

5/0// FILE NUMBER 
1/! 

5/0// FIRST SECTOR ADDRESS 

5/0// LAST SECTOR ADDRESS PLUS ONE 

5/0// RECORD LENGTH (IN SECTORS) 

5/0// NEXT FILE POINTER 

1/! 

5/20000// FILE DESCRIPTION TABLE 

5/20000// ENTRY USED TO INITIALIZE 

5/00000// A DISK PACK 

5/01000 

1/! 
5/0 

5/0// RECORD LENGTH IN SECTORS 



13827 
NO. !/ 
13905 
13995 
11*065 
11*133 
11*191 
11*21*9 
11*261 
11*275 
11*289 
11*297 
11*310 
11*311 
11*316 
11*321 
11*326 
11*331 
11*332 
11*337 

11*31*2 
11*31*7 
11*352 
11*353 
11*358 
11*363 



00078 

00090 
00070 
00068 
00058 
00058 
00012 
00011* 
00011* 
00008 
00010 
00005 
00001 
00005 
00005 
00005 
00005 
00001 
00005 

00005 
00005 
00005 
00001 
00005 
00005 



28 



NRPF 


DC 


5,0,, FILE CAPACITY IN RECORDS 


NSPF 


DC 


5,0,, FILE LENGTH IN SECTORS 


BUF1 


DC 


5,0 


BUF2 


DC 


5,0 


BUF3 


DC 


5,0 


BUFU 


DC 


5,0 


BUFN 


DC 


6,0 




DC 


1,1 • •••• 


DCF 


DDA 

* 


,3, 00000, 001, SECT 


SECT 


DSB 


1,100 




DC 


1,<P 


N398 


DC 


7,3980000 


ACC 


DC 


7,0 


CARD 


DAC 


UO, 




DAC 


1*0, 



DEND START 



11*368 00005 

11*373 00005 

11*378 00005 

11*383 00005 

11*388 00005 

11*393 00005 

11*399 00006 

11*1*00 00001 

11*1*02 00006 300000 

11*1*08 00003 001 

11*1*11 00005 11*1*16 

11*1*16 00100 

11*516 00001 

11*523 00007. 

11*530 00007 

1U533 00080 

11*613 00080 
10000 



APPENDIX C 
Flow Charts 



SUBROUTINE SDDEF 




FETCH COMMON FILE RECORD 
LENGTH FROM CALLING PROG- 

\ 

SEND COMMON FILE RECORD 
LENGTH TO SUBROUTINE SDKEY 




SUBROUTINE SDFET 



NEGATE BASE ADDRESS 
TRANSMITTED BY CALL 




R CALL SDREC IS 
SIMULRTED AND CONTROL 
IS RETURNED TO THE 
CALLING PROGRAM BY 
SDREC- 




SUBROUTINE SDKEY 



STRRT 

'FIRST\ YES 
ENTRY, 



COMPUTE ADDRESSES IN 
SUBROUTINE SDREC AND 
FETCH THE COMMON FILE 
BOUNDARIES FROM CYL 99 



NENT 



FETCH FILE NO- 
FROM CHLLING 
PROGRAM 



r ILE N0V N0 
<999 



YES 




FILE NO- IS ALSO SENT 
TO SDREC FOR ERROR 
MESSAGES. 



'REVX. YES 

Cpersonal> w " 

.FILE> 



FETCH PERSONAL 
FILE DESCRIPTION 
FROM CYL 99 





FILE \ NO 
3EFINED> 



YES 



TRANSMIT THE 
PERSONAL FILE 
DESCRIPTION 
TO SDREC 



FILE DESCRIPTION — 
FIRST SECTOR 
LAST SECTOR+1 
RECORD LENGTH 
READ ONLY TAG 



TRANSMIT THE 
COMMON FILE 
DESCRIPTION 
TO SDREC 



1 ' UNDF 



TYPE — 

FILE NO- XXXX 

IS UNDEFINED 




31 




SUBROUTINE SDREC 



INHIBIT FIRST 
ENTRY IF NO 
FILE IS OPEN 



HSKP 



IFIRST ENTRY 
IOUSEKEEPING 



YES 



CLERR 


LOW 




ORDER 


FLRG 




IN 


BRSE 




ADDRESS 














SET UP FOR 




A DISK RERD 




OPERATION 




YES 



5 



SET UP FOR 
R DISK WRITE 
OPERRTION 



F3RDR 



E 



FETCH THREE ADDRESSES FROM 
DRLLING PROGRAM, COMPUTE DRTR 
BLOCK BOUNDARIES > RND SET A 
GROUP MARK AT END OF BLOCK- 



I 



DETERMINE THE SECTOR ADDRESS 
OF THE BEGINNING OF THE IND- 
ICATED RECORD AND ADVANCE 
THE RECORD NUMBER IN THE 
CALLING PROGRAM. 

— 1 




WDK1 



READ/WRITE 
TO END OF 
CYb- AND 
UPDATE 
COUNTERS 

zzi — 



FPERR 



READ/WRITE 



W WFOVF 



TYPE — 
FILE XXXX 
OVERFLOW 



TYPE - 
FILE Nt 
IS PRO" 


3- XXXX 
rECTED 







1 



HALT 



I 



ERRH 

3 



CLEAR GROUP MARK AT 
END OF DATA BLOCK 





RERD CARD 



UTILITY PROGRAM 

FUNCTION SELECTION 



REC • MK • 
JN COL 2. 

mo 

CNITIRLIZ! 
JOLS 1- 

mo 

DEFINE 
JJOLS 

[no 

DELETE 
.COLS 1- 

fNO 



YES 



[NO 

2ERD/HRITE 
JJOLS 1- 

mo 

JUMP TRBLl 
J30LS 1- 

[no 



TYPE — 

UNDEFINED 

FUNCTION 



I 



YES 



1 



INTLj 




kerd nm.v ^ yes 
cols l- " 



IdefnJ 
s 

IdeltJ 



IrdoyJ 

YES 



"[rdIrJ 

:s 

UlUMPj 



1 



TYPE — 
TRP ERR 
MUST RELORD 



I 



HRLT 

I 

MCRLj 00796 



I^jcrlJ 



HRLT 




000 10 00000 00003 00003 
00010 00000 00003 00003 
000 10 00000 00003 00003 
00010 00000 00003 00003 
000X0 00000 00003 00003 
— M0103S lyoidAi 
66 ~IAO JO S&0133S 003 3XI2IM 



S3A 




*oyd *sia 3ZinyixiNi 

01 1UU1S SS3Ud — 3dAl 



3ZIiyilINI 

NOIlONfU Ainiin 





a3H30Nyo Nonya3do 

— 3dAl 



Q313ndW03 NOIiy2l3dO 
J — 3dAl 





snoiioniu Ainiin 
jo N0iiyNiwa3i 



34 




TYPE — PRESS STRRT TO 
DEFINE FILE NO. XXXX 




YES 



TPFN 



TRAP OUT 
OF RANGE 
FILE NO- 



I 



TBLE 



RERD FILE 
.DESCRIPTION/ 



UTILITY FUNCTION 

DEFINE 



ICNCU 




CONVERT 

NSPR RND NRPF 



I 

|NSPR»NRPF-»NSPF| 




YES 



DFRR 



TYPE — FILE IS 
ASSIGNED > CRNNOT 
DEFINE 



E 




CNCLj 



TYPE— r ZERO LENGTH 
FILE, CANNOT DEFINE 



I 



I^nclJ 



35 



TYPE. — SUFFICIENT 
SPACE UNAVAILABLE, 
CANNOT DEFINE 



IcM3lJ 



FILE-*NEXT 
BUF1-»FILE 
BUF8*FSEC 
BUF2+NSPF 

* LSEC 
NSPR*RECL 




1 



DESF 



TBLE 



WRITE FILE 
DESCRIPTION, 



TYPE FILE 
NUMBER AND 
DESCRIPTION 



BUF3*FILE 



TBLE 



READ FILE 
DESCRIPTION, 



I 



B UF1*NEX T 

write file' 
description/ 

I v doneJ 



TBLE 




TYPE — PRESS STRRT TO 
DELETE FILE NO- XXXX 



I 



HRLT 



YES 



[cnclJ 




TRRP OUT 
OF RANGE 
FILE NO. 



TPEN 



I 



TBLE 



RERD FILE 
.DESCRIPTION, 



YES 



DEUF 



TYPE — FILE 
IS UNRSSIGNED, 
CRNNOT DELETE 

I 




[cnclJ 



FILE-*BUF1 
NEXT-*BUFE 
0->NEXT 
O+RECL 



I 



TBLE 



WRITE FILE 
.DESCRIPTION, 



UTILITY FUNCTION 

DELETE 



1 



999*FILE 



DELP 

\ TBLE 



RERD FILE \ 
.DESCRIPTION/ 




TBLE 



WRITE FILE \ 
.DESCRIPTION/ 



[doneJ 



37 



UTILITY FUNCTION 

READ ONLY 



UTILITY FUNCTION 

RERD/WRITE 




TYPE -- PRESS START TO SET 
READ ONLY, FILE NO- XXXX 



(CNCU 



YES 





TYPE — PRESS START TO CLEAR 
READ ONLY, FILE NO- XXXX 



TRAP OUT 
OF RANGE 
FILE NO. 



TPFN 




YES 



TRAP OUT 
OF RANGE 
FILE NO- 



TPFN 



ICNCU 



I 



TBLE 



I 



TBLE 



/ READ FILE 
^DESCRIPTION/ 



READ FILE 
.DESCRIPTION/ 



YES 



RDFP 




TYPE — 


FILE IS 


ALREADY 


SET 


TO READ 


ONLY 



I 




YES 



1 



UNDF 



TYPE — 
FILE IS 
UNDEFINED 



(cnclJ 



SET LOW ORDER 
FLAG ON RECORD 
LENGTH 

1 




YES 



RDAR 



CLEAR LOW ORDER 
FLAG ON RECORD 
LENGTH 



[cnclJ 



~t REUR f" 

RE-WRITE 
FILE 
.DESCRIPTION/ 



TYPE — FILE IS 
NOT SET TO 
READ ONLY 



TBLE 



(CNCU 



I 





UTILITY FUNCTION 

DUMP TABLE 



TYPE HERDING 

~L~ 

1 999-»FILE 

_t_ 



TBLE 



RERD FILE 
.DESCRIPTION/ 




TBLE 



RERD FILE 
.DESCRIPTION/ 



TYPE FILE NO. RND FILE BOUNDRRIES] 



DUPF 




DURW 



CRRRIRQE RTN I 

=zr — 
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